home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue70 / system / Listing4.pas < prev   
Pascal/Delphi Source File  |  2001-05-02  |  334b  |  18 lines
  1. program xapp;
  2. uses Xlib, Libc;
  3. procedure Main;
  4. var
  5.   dpy: PDisplay;
  6.   w: TWindow;
  7. begin
  8.   dpy := XOpenDisplay (Nil);
  9.   w := XCreateWindow (dpy, XDefaultRootWindow (dpy), 0, 0, 200, 100, 0,
  10.     CopyFromParent, CopyFromParent, Nil, 0, Nil);
  11.   XMapWindow (dpy, w);
  12.   XFlush(dpy);
  13.   __sleep (10);
  14. end;
  15. begin
  16.   Main;
  17. end.
  18.